﻿Public Class clsJPMst
    Public Function getJLList() As DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT * FROM sf.t_mst_jp WHERE 1 = 1 and type = ? and validity = ?"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, "胶片II型", "1")
        Return dt
    End Function

    Public Function getMstJpByMaterialCode(material_code As String) As DataTable
        Dim szSql As String = "SELECT * FROM sf.t_mst_jp WHERE material_code = ? and validity = ? "
        Return DBacs.ExecuteSql(szSql, -1, material_code, "1")
    End Function

End Class
